home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe038.dms / pe038.adf / autoexec.AMOS / autoexec.amosSourceCode
AMOS Source Code  |  1991-10-31  |  10KB  |  298 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Set Sprite Buffer 16
  3. Break Off 
  4. Curs Off : Cls 0 : Flash Off : Hide 
  5. MUS_OK=0
  6. Global PAWS,BIG_FNT,WEE_FNT1,WEE_FNT2
  7. PAWS=2
  8. Get Disc Fonts 
  9. PASS=0 : BIG_FNT=0 : WEE_FNT1=0 : WEE_FNT2=0
  10. For X=1 To 20
  11.    If(Lower$(Mid$(Font$(X),1,14))="helvetica.font") and Val(Mid$(Font$(X),30,4))=18 Then BIG_FNT=X
  12.    If(Lower$(Mid$(Font$(X),1,12))="diamond.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT1=X
  13.    If(Lower$(Mid$(Font$(X),1,9))="ruby.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT2=X
  14. Next X
  15. SCR_1
  16. SCR_2
  17. LDSCR
  18. MUS_OK=0
  19. LS_ERR:
  20. Curs Off : Locate 2,24 : Print "Cannot load screen [";Errn;"] - press any key "; : Clear Key : Wait Key 
  21. Locate 2,24 : Print Space$(29);
  22. Procedure GUIDE
  23. Screen Open 0,640,200,4,Hires
  24. Palette $F,$FF0,$FFF,$F00
  25. PG1:
  26. Paper 0 : Pen 2 : Cls 
  27. Print : Centre "HENRIETTA's BOOK of SPELLS DEMO DISC - USER GUIDE"
  28. Print : Centre "=================================================" : Print 
  29. Print "    The purpose of this disc is to give you a flavour of HENRIETTA's BOOK"
  30. Print "    of SPELLS without having to go to the expense of buying the full pack."
  31. Print "    The DEMO is a restricted version of the full program, but it has been"
  32. Print "    set up to allow you to examine the features which make it such a"
  33. Print "    powerful educational tool."
  34. Print 
  35. Print "    A 12 page colour manual is provided with the full pack which"
  36. Print "    explains in detail how to get the best from the program, but for the"
  37. Print "    purposes of this DEMO the following should help:"
  38. Print 
  39. Print "       We recommend you study the Parent/Teacher section.  This is where,"
  40. Print "       in the full version, you configure the program to suit a child's"
  41. Print "       abilities, or examine the results of earlier sessions."
  42. Print 
  43. Print "       Pressing <Esc> will let you leave any section of the program."
  44. Print 
  45. Print "       To quit the program go to the Control Screen and press <SHIFT-Q>."
  46. Print 
  47. Print "    Feel free to browse through the program and the Parent/Teacher section."
  48. Print "    Don't be afraid to experiment."
  49. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  50. Print "Press <Esc> to quit.";
  51. Clear Key : K=0
  52. Repeat 
  53.   K$=Inkey$
  54.   K=Mouse Click
  55. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  56. If K$=Chr$(27) Then Pop Proc
  57. If K=1 Then Goto PG4
  58. PG2:
  59. Paper 0 : Pen 2 : Cls 
  60. Print "  What the press says about HENRIETTA's BOOK of SPELLS"
  61. Print "  ===================================================="
  62. Print : Print 
  63. Print "    'The graphics add tremendously to a child's enjoyment without"
  64. Print "     slowing the gameplay down.  A very good package - highly recommended.'"
  65. Print "    Atari ST User September 1991"
  66. Print 
  67. Print "    'This program is great fun and has great potential for work in"
  68. Print "     any language because of its flexibility ... I thoroughly"
  69. Print "     recommend it.'"
  70. Print "    Times Educational Supplement September 1990"
  71. Print 
  72. Print "    '... it engenders a love of words and stimulates curiosity, as"
  73. Print "     well as encouraging development of problem-solving skills.'"
  74. Print "    ST FORMAT November 1991 (Awarded 92% - FORMAT GOLD)"
  75. Print 
  76. Print "    'I found it to be a really enjoyable way for young brains to be"
  77. Print "     tested.'"
  78. Print "    Amiga Computimg October 1991"
  79. Print 
  80. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  81. Print "Press <Esc> to quit.";
  82. Clear Key : K=0
  83. Repeat 
  84.   K$=Inkey$
  85.   K=Mouse Click
  86. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  87. If K$=Chr$(27) Then Pop Proc
  88. If K=1 Then Goto PG1
  89. PG3:
  90. Paper 0 : Pen 2 : Cls 
  91. Print "                      DEMO DISCS - Conditions of Licence"
  92. Print "                      =================================="
  93. Print "    You can make as many copies of your HENRIETTA's BOOK of SPELLS DEMO"
  94. Print "    DISC as you wish and give or sell them to others.  The following"
  95. Print "    conditions shall apply."
  96. Print 
  97. Print "    We, Scetlander Limited retain proprietary rights in the content of all"
  98. Print "    discs/cassettes ('the Software') and its documentation which is"
  99. Print "    licensed to you on the following conditions:"
  100. Print 
  101. Print "    1  Use of this Software (or a copy thereof) by you or any other party"
  102. Print "       confirms acceptance of these Conditions."
  103. Print "    2  You are permitted to make any number of copies of the Software and"
  104. Print "       also to store the Software on a hard disc if you have one."
  105. Print "    3  You may use the Software (or any copy thereof) for public library,"
  106. Print "       club or commercial purposes."
  107. Print "    4  Alterations to and versions of the Software (or any copy thereof)"
  108. Print "       and/or its documentation may not be made without our prior, written "
  109. Print "       consent."
  110. Print "    5  You may lend or dispose of the Software (or any copy thereof) with"
  111. Print "       its documentation to another party only if that party agrees to be"
  112. Print "       bound by these Conditions."
  113. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  114. Print "Press <Esc> to quit.";
  115. Clear Key : K=0
  116. Repeat 
  117.   K$=Inkey$
  118.   K=Mouse Click
  119. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  120. If K$=Chr$(27) Then Pop Proc
  121. If K=1 Then Goto PG2
  122. PG4:
  123. Paper 0 : Pen 2 : Cls 
  124. Print : Print 
  125. Print "    All rights reserved.  Except as specified above, no part of the"
  126. Print "    Software or its documentation may be reproduced, stored on a retrieval"
  127. Print "    system or transmitted in any form or by any means, electronic,"
  128. Print "    mechanical, photocopying, recording or otherwise without our prior"
  129. Print "    written permission."
  130. Print 
  131. Print "    If you are in any doubt whatsoever regarding these Conditions, please"
  132. Print "    contact us for advice since a breach could result in a criminal as"
  133. Print "    well as a civil offence being committed."
  134. Print 
  135. Centre "Published by:"
  136. Print : Centre "Scetlander Limited"
  137. Print : Centre "74 Victoria Crescent Road, Glasgow G12 9JN, UK"
  138. Print : Centre "Tel:  +44 (0)41-357 1659  Fax:  +44 (0)41-357 5034"
  139. Print : Centre "A subsidiary of Scotlander plc"
  140. Print : Print : Print : Print : Print : Print 
  141. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  142. Print "Press <Esc> to quit.";
  143. Clear Key : K=0
  144. Repeat 
  145.   K$=Inkey$
  146.   K=Mouse Click
  147. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  148. If K$=Chr$(27) Then Pop Proc
  149. If K=1 Then Goto PG3
  150. Goto PG1
  151. End Proc
  152. Procedure SCR_1
  153. Get Disc Fonts 
  154. Screen Open 0,320,200,16,Lowres
  155. Palette 0,$0,$FFF,$AAA,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
  156. Paper 7 : Cls 7
  157. Set Font BIG_FNT
  158. Set Text BOLD
  159. Ink 2,7
  160. Box 0,0 To 319,199
  161. Bar 0,32 To 319,36
  162. Bar 0,38 To 319,42
  163. Ink 2
  164. Text 80,25,"DEMO  DISC"
  165. Set Font WEE_FNT1
  166. TMP$="Welcome to this DEMO DISC of"
  167. Text 10,55,TMP$
  168. Ink 4
  169. Text 9,68,"HENRIETTA's BOOK of SPELLS"
  170. Ink 2
  171. Text 233,68,"and to"
  172. Text 9,81,"the world of computer assisted"
  173. Text 9,94,"learning.  For details on how to get"
  174. Text 8,107,"the best from this demo read the"
  175. Text 9,120,"Guide on this disc."
  176. Ink 5
  177. Text 40,160,"Press <Space> to continue, or"
  178. Text 40,173,"press <F1> to read the Guide."
  179. Ink 2
  180. Text 20,190,"Press <Shift-Q> to leave the demo."
  181. Clear Key 
  182. ME=0
  183. Repeat 
  184.    BB$=Inkey$
  185.    S=Scancode
  186.    If S>0 and S<>80 Then ME=2
  187.    If S=80 Then ME=1
  188.    If BB$="Q" Then ME=3
  189.    If BB$=" " Then ME=4
  190. Until ME=1 or ME=3 or ME=4
  191. If ME=3 Then End 
  192. If ME=1 Then GUIDE
  193. End Proc
  194. Procedure SCR_2
  195. Screen Open 0,320,200,16,Lowres
  196. Palette $0,$0,$FFF,$0,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
  197. Paper 7 : Cls 7
  198. Set Font BIG_FNT
  199. Set Text BOLD
  200. Ink 2,7
  201. Box 0,0 To 319,199
  202. Ink 4
  203. Text 10,25,"HENRIETTA's BOOK of SPELLS"
  204. Ink 5
  205. Set Font WEE_FNT2
  206. Text 9,45,"is published by . . ."
  207. Set Font BIG_FNT
  208. Ink 2
  209. Text 9,75,"Scetlander Ltd"
  210. Text 9,100,"74 Victoria Crescent Road"
  211. Text 9,125,"Glasgow G12 9JN"
  212. Text 9,150,"Tel: 041-357 1659"
  213. Text 9,175,"Fax: 041-357 5034"
  214. Ink 5
  215. Set Font WEE_FNT2
  216. Text 40,192,"Press <Space> to continue"
  217. Clear Key : Wait Key 
  218. End Proc
  219. Procedure LDSCR
  220. Flash Off : Cls 0
  221. Load Iff "data/ldwitch.iff"
  222. Curs Off 
  223. Bob 1,42,48,4
  224. For A=0 To 2
  225.    For I=1 To 5
  226.       Volume 3,63
  227.       Play 3,40,1
  228.       Bob 1,42,48,4+(I/3)
  229.       Volume 3,0
  230.       If Inkey$<>"" Then Goto ESCAPE
  231.       Wait 3
  232.    Next I
  233.    Wait 10
  234.    For I=1 To 5
  235.       Volume 3,63
  236.       Play 3,40,1
  237.       Bob 1,42,48,4+(I/3)
  238.       Volume 3,0
  239.       If Inkey$<>"" Then Goto ESCAPE
  240.       Wait 3
  241.    Next I
  242.    Wait 20
  243. Next A
  244. Bob Off 
  245. Amal Off 
  246. Bob 1,42,48,4
  247. K$=Inkey$
  248. K=Scancode
  249. If(K$="")
  250.    For X=0 To 1
  251.       LOONY_TUNE
  252.       K$=Param$
  253.       If K$=" "
  254.          Goto ESCAPE
  255.       Else 
  256.          Next X
  257.    End If 
  258. End If 
  259. ESCAPE:
  260. Clear Key 
  261. Curs Off 
  262. Pen 15 : Paper 0 : Locate 4,24 : Print "  Loading Program - Please Wait   ";
  263. On Error Goto LD_PRG
  264. Run "game.amos"
  265. LD_PRG:
  266. Curs Off : Locate 0,24 : Print "Can't find program [";Errn;"] - press a key"; : Clear Key : Wait Key 
  267. End 
  268. End Proc
  269. Procedure LOONY_TUNE
  270.    Volume 63
  271.    Set Envel 1,0 To 1,63
  272.    Set Envel 1,1 To 10,51
  273.    Set Envel 1,2 To 70,51
  274.    Set Envel 1,3 To 120,0
  275.    T#=35
  276.    Restore TUNE1_NOTES
  277.    Goto TUNE1_PLAY
  278.    Goto EXYT
  279.    TUNE1_PLAY:
  280.    Do 
  281.       Read P,D#
  282.       Exit If P=-1 or D#=-1
  283.       I=(1/D#)*T#
  284.       Play P,I
  285.       Wait I
  286.       K$=Inkey$
  287.       Exit If(K$<>"")
  288.    Loop 
  289.    K$=" "
  290.    Goto EXYT
  291.    TUNE1_NOTES:
  292.    Data 39,4,44,8,47,4,39,4,44,8,47,4,44,4,49,8,52,4
  293.    Data 44,4,49,8,52,4,39,4,43,8,49,4,39,4,43,8,49,4
  294.    Data 40,4,39,8,49,8,47,8,44,4,-1,-1
  295.    EXYT:
  296.    Set Envel 1,2 To 1,0
  297.    Set Envel 1,3 To 1,0
  298. End Proc[K$]